﻿Public Structure RunningApp
    Public PID As Integer
    Public StartTime As DateTime
    Public Sub Kill()
        Try
            Process.GetProcessById(PID).Kill()
        Catch ex As Exception
            Debug.WriteLine("Failed to Kill the process")
        End Try

    End Sub
    ''' <summary>
    ''' Initializes a new instance of the RunningApp structure.
    ''' </summary>
    ''' <param name="pID"></param>
    Public Sub New(ByVal pID As Integer)
        Me.PID = pID
        Me.StartTime = DateTime.Now
    End Sub
End Structure

